home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / soundup.zip / SAMPLE.PAS < prev    next >
Pascal/Delphi Source File  |  1990-08-21  |  202b  |  11 lines

  1. Program TestSnd;
  2. Uses Crt,Sounds;
  3. Var Snd1,Snd2:Noise;
  4.     I:Byte;
  5.  
  6. Begin
  7.      I:=LoadSound('I.SND',Snd1);
  8.      I:=LoadSound('PAGE.SND',Snd2);
  9.      KeepSound(Snd2);
  10.      PlaySound(Snd1);
  11. End.